Unit Initializer;

{$mode objfpc}{$H+}

Interface

Type
  DynamicItemMenu = Record
    Name : String;
    ItemAmount : Integer;
    ItemID : Integer;
  end;

Var
  WarriorBank : Array [1..6] of String;
  MageBank : Array [1..6] of String;
  ArcherBank : Array [1..6] of String;
  ItemIDNo : Array [1..99] of Integer;
  ItemIDName : Array [1..99] of String;
  ItemPrice : Array [1..99] of Integer;
  DItem : Array [1..99] of DynamicItemMenu;

Procedure AbilitySetup;
Procedure ItemIDSetup;
Procedure ItemNameSetup;
Procedure ItemPriceSetup;
Procedure InventorySetup_amountonly;

Implementation

Procedure AbilitySetup;
Begin
  WarriorBank[1] := 'Strike';
  WarriorBank[2] := 'Cleave';
  WarriorBank[3] := 'Rage Swing';
  WarriorBank[4] := 'Swift Slash';
  WarriorBank[5] := 'Ancestral Might';
  WarriorBank[6] := 'EndGame';

  MageBank[1] := 'Fire Bolt';
  MageBank[2] := 'Thunder Strike';
  MageBank[3] := 'Frost Thorns';
  MageBank[4] := 'Molten Glare';
  MageBank[5] := 'Elemental Explosion';
  MageBank[6] := 'EndGame';

  ArcherBank[1] := 'Quick Shot';
  ArcherBank[2] := 'Throw Knife';
  ArcherBank[3] := 'Headshot';
  ArcherBank[4] := 'Peirce';
  ArcherBank[5] := 'Barrage';
  ArcherBank[6] := 'EndGame';

end;

Procedure ItemIDSetup;
Begin
  ItemIDNo[1] := 1;
  ItemIDNo[2] := 2;
  ItemIDNo[3] := 3;
  ItemIDNo[4] := 4;
  ItemIDNo[5] := 5;
  ItemIDNo[6] := 6;
  ItemIDNo[7] := 7;
  ItemIDNo[8] := 8;
  ItemIDNo[9] := 9;
  ItemIDNo[10] := 10;
  ItemIDNo[11] := 11;
  ItemIDNo[12] := 12;
  ItemIDNo[13] := 13;
  ItemIDNo[14] := 14;
  ItemIDNo[15] := 15;
  ItemIDNo[16] := 16;
  ItemIDNo[17] := 17;
  ItemIDNo[18] := 18;
  ItemIDNo[19] := 19;
  ItemIDNo[20] := 20;

end;

Procedure ItemNameSetup;
Begin
  ItemIDName[1] := 'Lesser Potion';
  ItemIDName[2] := 'Mana Potion';
  ItemIDName[3] := 'Potion';
  ItemIDName[4] := 'Greater Potion';
  ItemIDName[5] := 'Antidote';
  ItemIDName[6] := 'Protein Shake';
  ItemIDName[7] := 'Diazepam';
  ItemIDName[8] := 'Tonic';
  ItemIDName[9] := 'EXP Booster';
  ItemIDName[10] := 'God''s Tear';
  ItemIDName[11] := '11';
  ItemIDName[12] := '12';
  ItemIDName[13] := '13';
  ItemIDName[14] := '14';
  ItemIDName[15] := '15';
  ItemIDName[16] := '16';
  ItemIDName[17] := '17';
  ItemIDName[18] := '18';
  ItemIDName[19] := '19';
  ItemIDName[20] := '20';
end;

Procedure ItemPriceSetup;
Begin
  ItemPrice[1] := 20;
  ItemPrice[2] := 15;
  ItemPrice[3] := 50;
  ItemPrice[4] := 150;
  ItemPrice[5] := 70;
  ItemPrice[6] := 100;
  ItemPrice[7] := 100;
  ItemPrice[8] := 100;
  ItemPrice[9] := 500;
  ItemPrice[10] := 1000;
  ItemPrice[11] := 1;
  ItemPrice[12] := 1;
  ItemPrice[13] := 1;
  ItemPrice[14] := 1;
  ItemPrice[15] := 1;
  ItemPrice[16] := 1;
  ItemPrice[17] := 1;
  ItemPrice[18] := 1;
  ItemPrice[19] := 1;
  ItemPrice[20] := 1;

end;

Procedure InventorySetup_amountonly; //Subject to change
Begin
  DItem[1].ItemAmount := 0;
  DItem[2].ItemAmount := 0;
  DItem[3].ItemAmount := 0;
  DItem[4].ItemAmount := 0;
  DItem[5].ItemAmount := 0;
  DItem[6].ItemAmount := 0;
  DItem[7].ItemAmount := 0;
  DItem[8].ItemAmount := 0;
  DItem[9].ItemAmount := 0;
  DItem[10].ItemAmount := 0;
  DItem[11].ItemAmount := 0;
  DItem[12].ItemAmount := 0;
  DItem[13].ItemAmount := 0;
  DItem[14].ItemAmount := 0;
  DItem[15].ItemAmount := 0;
  DItem[16].ItemAmount := 0;
  DItem[17].ItemAmount := 0;
  DItem[18].ItemAmount := 0;
  DItem[19].ItemAmount := 0;
  DItem[20].ItemAmount := 0;
end;

end.

